Shareware Grab Bag/Shareware Grab Bag.iso/090/ad.arc/ADMAIL.BAS

GW-BASIC | 1984-06-17 | 13.5 KB | 299 lines

100  CLEAR:ON ERROR GOTO 9000
126  GOSUB 3000:GOTO 200
130  CLS:GOSUB 140:LOCATE 12,20:PRINT  "PLEASE WAIT, RETURNING TO MAIN MENU":RUN"ADMAIN.BAS"
133  CLS:GOSUB 140:LOCATE 12,20:PRINT  "PLEASE WAIT, RETURNING TO PRINT MENU":RUN"ADPRT.BAS"
140  LOCATE 25,26:COLOR 1,7,1:PRINT "INTEGRATED SOFTWARE SYSTEMS ";:COLOR 3,0:RETURN
155  CLS:COLOR 3,0:LOCATE  12,30:PRINT "QUIT?  <Y>es or <N>o?":COLOR 14,0:LOCATE 12,38:PRINT "Y":LOCATE 12,47:PRINT "N":COLOR 3,0
156  GOSUB 35020
157  Y$=INKEY$:IF Y$="" THEN 157 ELSE Y$=CHR$(ASC(Y$) AND &HDF)
158  IF Y$="N" THEN 210
159  IF Y$="Y" THEN CLS:LOCATE 12,30:PRINT "GOODBYE":SYSTEM ELSE 156
160  REM
200  REM               PRINT
210  GOSUB 5010:Z$=""
220  X3$="FILE = ":X4$=SPACE$(15):X5$="FUNCTION = ":X1$="PRINT "
230  CLS:LOCATE 25,29:COLOR 1,7,1:PRINT "INTEGRATED SOFTWARE SYSTEMS";:COLOR 3,0:LOCATE 1,1
240  LOCATE 1,1:PRINT TAB(9);"MAILING LABEL MENU":PRINT:PRINT "CHOOSE ONE OF THE FOLLOWING:  "
250  PRINT:COLOR 14,0
260  PRINT "   ";CHR$(186);"     ";O5$:PRINT "   ";CHR$(186);"     ";O6$:PRINT "   ";CHR$(25);"     ";O7$:COLOR 3,0
270  PRINT:PRINT TAB(4);"1) ADDRESS labels ONE across"
275  PRINT TAB(4);"2) ADDRESS labels TWO across"
280  PRINT TAB(4);"3) ADDRESS labels ONE-SIX with variable dimensions"
320  COLOR 31,0:LOCATE 6,11:PRINT "?"
330  COLOR 14,0:LOCATE 9,4:PRINT "1":LOCATE 10,4:PRINT "2":LOCATE 11,4:PRINT "3"
361  COLOR 3,0:LOCATE 17,40:PRINT "KEY  F1 = Return to MAIN menu"
362  COLOR 14,0:LOCATE 18,40:PRINT "     F2";:COLOR 3,0:PRINT " = Return to PRINT-MAIL menu"
363  LOCATE 19,40:PRINT "     F6 = Return to PRINT menu"
364  LOCATE 20,40:PRINT "     F8 = KEYS used in NOTES"
365  LOCATE 21,40:PRINT "     F7 = List of names in Address Book"
366  LOCATE 22,40:PRINT "    F10 = HELP"
367  LOCATE 23,40:PRINT "ALT F10 = QUIT"
369  LOCATE 1,67:PRINT "(C) 1983":LOCATE 2,62:PRINT "Date:  ";DATE$:LOCATE 3,62:PRINT "Time:  "
370  DEF SEG=0: POKE 1050, PEEK(1052)
371  Y9$=INKEY$:IF Y9$="" THEN LOCATE 3,69:PRINT TIME$:GOTO 371 ELSE 375
375  IF LEN(Y9$)=2 THEN 460
380  COLOR 3,0:LOCATE 6,11:PRINT Y9$
400  IF VAL(Y9$)<=3 AND VAL(Y9$)>0 THEN 840 ELSE GOSUB 35020 :GOTO 370
460  IF ASC(RIGHT$(Y9$,1))=68 THEN 30000
470  IF ASC(RIGHT$(Y9$,1))=113 THEN 155 ELSE 240
600  IF YS=1 THEN YS=0:GOSUB 5000:GOSUB 5010
605  LOCATE 20,25:COLOR 0,7:PRINT "TURN ON PRINTER AND HIT ANY KEY":COLOR 3,0:GOSUB 35010
610  Y$=INKEY$: IF Y$="" THEN 610
620  LOCATE 21,25:PRINT SPACE$(40):LOCATE 21,37:COLOR 16,7:PRINT "WORKING"
630  LOCATE 21,27:COLOR 14,0:PRINT "Hit <Esc> to stop printing":COLOR 3,0:RETURN
650  MAILFILE$=FIL$+".MAL":OPEN MAILFILE$ FOR INPUT AS #3:INPUT #3, WID,HT,NS:CLOSE #3:GOTO 660
655  IF Y9$="2" THEN WID=3.5:HT=0.937:NS=2 ELSE RETURN
660  IF Y9$="1" THEN NS=1 ELSE IF Y9$="2" THEN NS=2
665  LOCATE 8,28:COLOR 14,0:PRINT "Width of labels in inches:  ";WID
670  LOCATE 10,28:COLOR 14,0:PRINT "Height of labels in inches:  ";HT
675  LOCATE 12,28:COLOR 14,0:PRINT "Number of Labels across the page:  ";NS
680  RETURN 865
710  COLOR 11,0:LOCATE 16,21:PRINT "Do you want to save the label dimensions?" :COLOR 3,0:LOCATE 18,35:PRINT "[Y] or <N>":COLOR 14,0:LOCATE 18,36:PRINT "Y":LOCATE 18,43:PRINT "N":COLOR 3,0:GOSUB 35030
715  Y$=INKEY$:IF Y$="" THEN 715 ELSE Y$=CHR$(ASC(Y$) AND &HDF)
720  IF Y$="N" THEN RETURN
730  MAILFILE$=FIL$+".MAL":OPEN MAILFILE$ FOR OUTPUT AS #3:PRINT #3, WID,HT,NS:CLOSE #3:RETURN
800  DEF SEG=0: POKE 1050, PEEK(1052)
810  Y$=INKEY$:IF Y$="" THEN 810 ELSE Y$=CHR$(ASC(Y$) AND &HDF)
820  IF Y$<>"Y" THEN Y$="N"
830  RETURN
840  GOSUB 5000:LOCATE 1,1:PRINT TAB(4);"PRINT - MAILING LABEL"
845  COLOR 14,0:LOCATE 22,40:PRINT "KEY  F2";:COLOR 3,0:PRINT " = Return to PRINT-MAIL menu"
846  IF Z$="G" THEN 855 ELSE GOSUB 650
855  LOCATE 8,28:COLOR 14,0:PRINT "Width of labels in inches?  ";:COLOR 29,0:PRINT CHR$(178):LOCATE 8,56:COLOR 14,0:GOSUB 35030:INPUT "",WID
860  LOCATE 10,28:PRINT "Height of labels in inches?  ";:COLOR 29,0:PRINT CHR$(178):LOCATE 10,57:COLOR 14,0:GOSUB 35030:INPUT "",HT
861  IF Y9$="3" THEN LOCATE 12,28:PRINT "Number of Labels across the page?  ";:COLOR 29,0:PRINT CHR$(178):LOCATE 12,63:COLOR 14,0:GOSUB 35030:INPUT "",NS
865  COLOR 11,0:LOCATE 16,28:PRINT "Confirm Label Dimensions." :COLOR 3,0:LOCATE 18,35:PRINT "[Y] or <N>":COLOR 14,0:LOCATE 18,36:PRINT "Y":LOCATE 18,43:PRINT "N":COLOR 3,0:GOSUB 35030
866  Y$=INKEY$:IF Y$="" THEN 866 ELSE Y$=CHR$(ASC(Y$) AND &HDF)
867  IF Y$="N" THEN CLS:Z$="G":GOTO 840 ELSE GOSUB 710
870  M5=INT((WID+0.1)*10+0.5):M3=M5-3:M2=M5-4:M6=M5-3:M1=INT(WID+0.5):M4=M5-1
880  HT=HT+1/16:HTL=INT(HT*6+0.5)
1000  GOSUB 5000:LOCATE 1,1:PRINT TAB(4);"PRINT - MAILING LABEL"
1005  COLOR 14,0:LOCATE 22,40:PRINT "KEY  F2";:COLOR 3,0:PRINT " = Return to PRINT-MAIL menu"
1010  LOCATE 12,20:COLOR 14,0:PRINT "Do you want to use the Courtesy Title?"
1020  LOCATE 14,33:COLOR 3,0:PRINT "<Y>es or [N]o?":LOCATE 14,34:COLOR 14,0:PRINT "Y":LOCATE 14,43:PRINT "N":COLOR 3,0:GOSUB 35030:GOSUB 800:T$=Y$
1040  IF HT<0.875 THEN TT$="N":GOTO 1070 ELSE LOCATE 12,20:COLOR 14,0:PRINT "Do you want to include the formal title?";SPACE$(10)
1050  GOSUB 35030:GOSUB 800:TT$=Y$
1070  LOCATE 12,20:COLOR 14,0:PRINT "Do you want to include the company name?";SPACE$(10)
1080  GOSUB 35030:GOSUB 800:TC$=Y$
1130  IF HT<1.1 THEN TS$="N":GOTO 1171 ELSE LOCATE 12,10:COLOR 14,0:PRINT "Do you want to print a special message before each address?"
1140  LOCATE 17,15:PRINT "Example:":LOCATE 17,25:PRINT "   MERRY CHRISTMAS  ":LOCATE 18,25:PRINT "John P. Public":LOCATE 19,25:PRINT "1000 Main Street":LOCATE 20,25:PRINT "Anywhere, MD  21210 ":COLOR 3,0:LOCATE 21,25:PRINT SPACE$(30)
1145  GOSUB 35030:GOSUB 800:TS$=Y$
1150  IF Y$="N" THEN 1540
1160  GOSUB 5000:LOCATE 1,1:PRINT TAB(4);"PRINT - MAILING LABEL"
1165  LOCATE 10,20:COLOR 14,0:PRINT "ENTER Message:  ":LOCATE 12,25:GOSUB 35000:LINE INPUT "? - ",TSP$
1170  ' IF (TS$="Y" AND TC$="Y" AND TT$="Y") OR Y9$="3" THEN 1171
1171  IF PT$="I" THEN 1172 ELSE 1540
1172  GOSUB 5000:LOCATE 1,1:PRINT TAB(4);"PRINT - MAILING LABEL"
1174  COLOR 14,0:LOCATE 22,40:PRINT "KEY  F2";:COLOR 3,0:PRINT " = Return to PRINT-MAIL menu"
1178  LOCATE 12,15:COLOR 14,0:PRINT "Do you want to changed to a condensed typestyle?"
1180  LOCATE 14,33:COLOR 3,0:PRINT "<Y>es or [N]o?":LOCATE 14,34:COLOR 14,0:PRINT "Y":LOCATE 14,43:PRINT "N":COLOR 3,0:GOSUB 35030:GOSUB 800:C$=Y$
1182  IF C$="Y" THEN     PRINT #5,  CHR$(15):     PRINT #5,  CHR$(27);CHR$(48):WIDTH #5,254:HTL=INT(HT*8+0.45)
1190  GOTO 1540
1200  GET #4,D%(LL)
1210  FOR J= 1 TO 7 :A(J,L)=VAL(V$(J)):NEXT
1220  A(8,L)=VAL(V$(13)):A(9,L)=VAL(V$(12)):A2=A(2,L)
1230  W$(6,L)=MID$(V$(5),5,A(5,L))+", "+MID$(V$(6),5,A(6,L))+"  "+MID$(V$(7),5,A(7,L))
1232  IF Y9$="3" THEN 1234 ELSE 1240
1234  IF LEN(W$(6,L))<=M4 THEN 1240 ELSE WL=LEN(W$(6,L))-M4
1236  W$(6,L)=MID$(V$(5),5,A(5,L)-WL)+", "+MID$(V$(6),5,A(6,L))+" "+MID$(V$(7),5,A(7,L)):A(5,L)=A(5,L)-WL-1
1240  A2=A(2,L):IF T$="N" THEN A9=M3-A(2,L):GOTO 1250 ELSE A9=M3-A(8,L)-A(2,L)
1250  IF A9=>A(1,L) THEN 1290
1260  A1=INSTR(1,MID$(V$(1),5,A(1,L))," "):IF A1<=0 THEN A$=MID$(V$(1),5,1)+".":A(1,L)=2:GOTO 1300
1270  IF A1<A9 THEN A$=MID$(V$(1),5,A1-1):A(1,L)=A1-1:GOTO 1300
1280  IF (A1<A(1,L) AND A1<A9) THEN A$=MID$(V$(1),5,1)+". "+MID$(V$(1),6+A1,1)+".":A(1,L)=5:GOTO 1300:ELSE A$=MID$(V$(1),5,1)+".":A(1,L)=2:GOTO 1300
1290  A$=MID$(V$(1),5,A(1,L))
1300  A(5,L)=M2-A(5,L)-A(6,L)-A(7,L):IF T$="N" THEN W$(1,L)=A$+" "+MID$(V$(2),5,A(2,L)):GOTO 1320
1310  W$(1,L)=MID$(V$(13),5,A(8,L))+A$+" "+MID$(V$(2),5,A(2,L))
1320  IF TT$="N" AND TC$="N" THEN W$(2,L)=MID$(V$(4),5,M3):W$(4,L)="":W$(5,L)="":W$(3,L)=W$(6,L):GOTO 1370
1330  IF A(9,L) = 0 AND A(3,L)=0 THEN W$(2,L)=MID$(V$(4),5,M3):W$(4,L)="":W$(5,L)="":W$(3,L)=W$(6,L):GOTO 1370
1340  IF A(9,L) = 0 AND A(3,L)<>0 THEN 1345 ELSE 1350
1345  IF TC$="Y" THEN W$(2,L)=MID$(V$(3),5,M3):W$(3,L)=MID$(V$(4),5,M3):W$(4,L)=W$(6,L):W$(5,L)="":GOTO 1370
1350  IF A(9,L) <> 0 AND A(3,L)<>0 THEN 1355 ELSE 1360
1355  IF TT$="Y" AND TC$="Y" THEN W$(2,L)=MID$(V$(12),5,M3):W$(3,L)=MID$(V$(3),5,M3):W$(4,L)=MID$(V$(4),5,M3):W$(5,L)=W$(6,L):GOTO 1370
1356  IF TT$="Y" AND TC$="N" THEN W$(2,L)=MID$(V$(12),5,M3):W$(3,L)=MID$(V$(4),5,M3):W$(4,L)=W$(6,L):W$(5,L)="":GOTO 1370
1357  IF TT$="N" AND TC$="Y" THEN W$(2,L)=MID$(V$(3),5,M3):W$(3,L)=MID$(V$(4),5,M3):W$(4,L)=W$(6,L):W$(5,L)="":GOTO 1370
1360  IF A(9,L) <>0 AND A(3,L)=0 THEN 1365 ELSE 1370
1365  IF TT$="Y" THEN W$(2,L)=MID$(V$(12),5,M3):W$(3,L)=MID$(V$(4),5,M3):W$(4,L)=W$(6,L):W$(5,L)="":GOTO 1370
1370  A(1,L)=M5-LEN(W$(1,L)):A(2,L)=M5-LEN(W$(2,L)):A(3,L)=M5-LEN(W$(3,L)):A(4,L)=M5-LEN(W$(4,L)):A(5,L)=M5-LEN(W$(5,L))
1400  RETURN
1410  IF TS$="Y" AND TSP$<>"" THEN W$(7,1)=LEFT$(TSP$,M3) ELSE W$(7,1)="":A7=M5:GOTO 1440
1430  A7=M5-LEN(W$(7,1))
1440  RETURN
1540  REM
1545  GOSUB 5000
1550  LOCATE 1,1:PRINT TAB(4);"PRINT - MAILING LABEL":PRINT:PRINT "CHOOSE ONE OF THE FOLLOWING:  "
1560  PRINT:COLOR 14,0
1570  PRINT "   ";CHR$(186);"     ";O5$:PRINT "   ";CHR$(186);"     ";O6$:PRINT "   ";CHR$(25);"     ";O7$:COLOR 3,0
1580  PRINT :PRINT TAB(4);"S)NAME":PRINT TAB(4);"N)OTE Code":PRINT TAB(4);"Z)IPCODE":COLOR 14,0
1590  LOCATE 9,4:PRINT "S":LOCATE 10,4:PRINT "N":LOCATE 11,4:PRINT "Z"
1600  COLOR 31,0:LOCATE 6,11:PRINT "?":COLOR 3,0
1602  COLOR 14,0:LOCATE 22,40:PRINT "KEY  F2";:COLOR 3,0:PRINT " = Return to PRINT-MAIL menu"
1605  DEF SEG=0: POKE 1050, PEEK(1052)
1610  Y$=INKEY$: IF Y$="" THEN 1610 ELSE Y$=CHR$(ASC(Y$) AND &HDF)
1615  IF Y$="S" THEN YS=1:GOTO 40000
1620  IF Y$="N" THEN 1800
1630  IF Y$="Z" THEN 1660 ELSE GOSUB 35020:GOTO 1605
1660  GOSUB 5000
1670  PRINT "PRINT ... ZIPCODE":LOCATE 5,32:PRINT "ENTER:  ZIPCODE & ";ARR$:LOCATE 6,8:PRINT "(Any number of digits and always start from the left most digit)"
1680  LOCATE 7,39:PRINT "OR":LOCATE 8,32:PRINT "'!' to print all"
1690  LOCATE 9,39:PRINT "OR":LOCATE 10,28:PRINT ARR$;"  return to PRINT menu":LOCATE 15,25:COLOR 14,0:INPUT "ZIPCode ... ",Z$:KK=7:X2$=" ZIPCODE "
1700  GOTO 1840
1800  GOSUB 5000
1810  PRINT "PRINT ... NOTE (Code)":LOCATE 5,30:PRINT "ENTER:  NOTE (Code) & ";ARR$:LOCATE 6,4:PRINT "(Any number of characters and always start from the left most character)"
1820  LOCATE 7,39:PRINT "OR":LOCATE 8,32:PRINT "'!' to print all"
1830  LOCATE 9,39:PRINT "OR":LOCATE 10,28:PRINT ARR$;"  return to PRINT menu":LOCATE 15,25:COLOR 14,0:INPUT "NOTE (Code) ... ",Z$:KK=9:X2$=" NOTES"
1840  MM=LEN(Z$):IF MM=0 THEN 230
1841  LOCATE 22,37:COLOR 16,7:PRINT "WORKING":COLOR 3,0
1845  X3$="FILE = ":X4$=SPACE$(15):X5$="FUNCTION = ":X1$="PRINT "
1850  JJ=0:GET #4,NN+1:I=VAL(V$(16)):IK=0
1855  IF IK=NN THEN 1920 ELSE IK=IK+1
1860  GET #4,I
1870  IF Z$="!" THEN 1890
1880  IF Z$<>MID$(V$(KK),5,MM) THEN  1910
1890  JJ=JJ+1
1900  D%(JJ)=I
1910  I=VAL(V$(14)):GOTO 1855
1920  IF JJ=0 THEN 230
1930  IF Y9$="1" THEN 2300
1935  IF Y9$="2" THEN 2500
1940  REM
1960  GOSUB 600
1980  IF C$="Y" THEN 1982 ELSE 1983
1982  CMP=1.675:M1=INT(M1*CMP+0.5):M2=INT(M2*CMP+0.5):M3=INT(M3*CMP+0.5):M5=INT(M5*CMP+0.5):M4=M5-1:M6=M5
1983  I=1:GOSUB 1410
1985  FOR L=1 TO NS:LL=I+L-1
1990  GOSUB 1200
2000  IF I=JJ THEN 2105
2023  IF A(1,L)<=0 THEN A(1,L)=1
2025  IF LL>=JJ THEN 2105
2030  NEXT
2105  IF I<>NN THEN 2110 ELSE IF N1 =0 THEN 2110 ELSE 2170
2110  IF TS$="N" THEN     PRINT #5, :GOTO 2120
2111  FOR K=1 TO NS:    PRINT #5,  W$(7,1);SPACE$(A7);:NEXT
2112      PRINT #5,
2120  FOR K=1 TO 5:FOR K1=1 TO L-2
2122      PRINT #5,  W$(K,K1);SPACE$(A(K,K1));:W$(K,K1)="":NEXT
2123      PRINT #5,  W$(K,K1):NEXT
2125  FOR K=1 TO HTL-6:    PRINT #5, :NEXT
2140  IF I+NS-1=>JJ OR I=0 THEN 2170 ELSE I=I+NS
2142  Y$=INKEY$:IF Y$=CHR$(27) THEN GOSUB 3500
2145  IF FRE(1)>1100 THEN 1985
2150  CHAIN "ADMAIL.BAS",2155,ALL
2155  GOSUB 5010
2165  GOTO 1985
2170      PRINT #5, :    PRINT #5,  CHR$(18):    PRINT #5,  CHR$(27);CHR$(50):GOTO 100
2270      PRINT #5,  :    PRINT #5,  CHR$(18):GOTO 100
2300  REM
2310  GOSUB 600
2320  I=1
2325  GET #4,D%(I)
2330  FOR J= 1 TO 7 :B(J)=VAL(V$(J)):NEXT
2335  B(8)=VAL(V$(13)):B(9)=VAL(V$(12))
2338  IF T$="N" THEN A9=30-B(2):GOTO 2342
2340  A9=30-B(8)-B(2):B2=24-B(5)-B(6)
2342  IF A9<B(1) THEN B(1)=A9
2343  IF T$="N" THEN W1$(1)=MID$(V$(1),5,B(1))+" "+MID$(V$(2),5,B(2)):GOTO 2350
2345  W1$(1)=MID$(V$(13),5,B(8))+MID$(V$(1),5,B(1))+" "+MID$(V$(2),5,B(2))
2350  W1$(3)=MID$(V$(3),5,30):W1$(4)=MID$(V$(4),5,30):W1$(8)=MID$(V$(12),5,30)
2355  W1$(5)=MID$(V$(5),5,B(5))+", "+MID$(V$(6),5,B(6))+"    "+MID$(V$(7),5,B(7))
2362  L2=3
2364  IF TS$="Y" THEN     PRINT #5,  LEFT$(TSP$,30):L2=L2+1
2365      PRINT #5,  W1$(1):IF B(9)=0 THEN 2370
2366  IF TT$="N" THEN 2370 ELSE     PRINT #5,  W1$(8):L2=L2+1
2370  IF B(3)=0 THEN 2375
2373  IF TC$="N" THEN 2375 ELSE     PRINT #5,  W1$(3):L2=L2+1
2375      PRINT #5,  W1$(4):    PRINT #5,  W1$(5)
2390  FOR L1=1 TO HTL-L2:    PRINT #5, :NEXT
2400  IF I=>JJ THEN CLOSE #4:GOTO 100 ELSE I=I+1
2405  Y$=INKEY$:IF Y$=CHR$(27) THEN GOSUB 3500
2410  IF FRE(1)>1000 THEN 2325 ELSE SNN=I
2415  CHAIN "ADMAIL.BAS",2420,ALL
2420  GOSUB 5010
2435  GOTO 2325
2440  GOTO 100
2500  REM
2510  GOSUB 600
2515  IF HTL>7 THEN HTLL=HTL:HTL=HTL-1
2520  IF TS$<>"Y" THEN HTL=HTL+1
2525  GOSUB 1410
2530  FOR L=1 TO 2:LL=I+L-1
2540  GOSUB 1200
2700  IF I =JJ THEN 2880
2710  IF A(1,L)<=0 THEN A(1,L)=6
2730  NEXT
2740  IF I<>NN THEN 2750 ELSE IF N1 =0 THEN 2750 ELSE 2880
2750  IF HTLL>7 THEN     PRINT #5,
2760  IF TS$="Y" THEN     PRINT #5,  W$(7,1);SPACE$(A7);W$(7,1)
2770  FOR K= 1 TO 5:    PRINT #5,  W$(K,1);SPACE$(A(K,1));W$(K,2):NEXT
2800  FOR K=1 TO HTL-6:     PRINT #5,  :NEXT
2810  IF I+1=>JJ OR I=0 THEN 2860 ELSE I=I+2
2815  Y$=INKEY$:IF Y$=CHR$(27) THEN GOSUB 3500
2820  IF FRE(1)>1100 THEN 2530
2830  CHAIN "ADMAIL.BAS",2155,ALL
2840  GOSUB 5010
2850  GOTO 2530
2860  GOTO 100
2880      PRINT #5, :IF TS$="Y" THEN     PRINT #5,  W$(7,1)
2885      PRINT #5,  W$(1,1):    PRINT #5,  W$(2,1):    PRINT #5,  W$(3,1)
2900      PRINT #5,  W$(4,1):    PRINT #5,  W$(5,1)
2910  GOTO 100
3000  O5$=CHR$(218)+CHR$(196)+CHR$(191):O6$=CHR$(179)+" "+CHR$(179):O7$=CHR$(192)+CHR$(196)+CHR$(217)
3010  O$=CHR$(219):O2$=CHR$(221):O1$="F KEYS:"+O$+O$+"F1:MAIN menu"+O2$+"F2:PRINT-MAIL menu"+O2$+"F6:PRINT menu"+O2$+"F8:NAMES"+O2$+"F4:NOTES"
3020  DIM DQ$(12):FOR I= 1 TO 12:READ DQ$(I):NEXT
3025  DIM D$(13),Q$(13),B$(13),AZ$(3),AZ(3),D(16),LS%(20),W(20),ZK(50)
3030  DATA JANUARY, FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER
3040  WIDTH "LPT1:",82
3050  OPEN "TEMPOR.TEM" FOR INPUT AS #1
3055  INPUT #1, FILE$,FILM$,FIL$:CLOSE #1
3056  OPEN FILM$ FOR INPUT AS #2
3060  INPUT #2,Y$,NRED,NN,FILE$,FIL$,PT$,SNN$,LP1,LP$,T1$,SND$,TN,F$:CLOSE #2
3065  DIM V$(16),D%(NN),W$(9,8),A(9,8),B(9),W1$(9)
3070  IF PT$="I" THEN OPEN "LPT1:" FOR OUTPUT AS #5:GOTO 3090
3080  OPEN "LPT2:" FOR OUTPUT AS #5
3090  OPEN FILE$ AS #4 LEN = 356
3100  FIELD #4, 19 AS V$(1), 19 AS V$(2), 18 AS V$(13), 34 AS V$(12), 34 AS V$(3), 34 AS V$(4), 19 AS V$(5), 14 AS V$(6), 16 AS V$(7), 12 AS V$(8), 84 AS V$(9), 19 AS V$(10), 19 AS V$(11), 5 AS V$(14), 5 AS V$(15), 5 AS V$(16)
3120  FILN$=FIL$+".NTE"
3200  DEF SEG = &H40:POKE &H17, PEEK(&H17) AND 223
3210  ARR$=CHR$(17)+CHR$(196)+CHR$(217)
3250  FOR I=1 TO 13:READ Q$(I):NEXT
3270  FOR I=1 TO 13:READ W(I):NEXT
3280  DATA "NAME - SURNAME: ","NAME - FIRST:   ","TITLE:          ","COMPANY:        ","STREET:         ","CITY:           ","STATE:          ","ZIPCODE:        ","     HOME:      ","   OFFICE:      ","BIRTHDAY:       ","NOTE:           ","TELEPHONE:"
3300  DATA 2,1,12,3,4,5,6,7,10,11,8,9,13
3310  RETURN
3500  LOCATE 21,25:COLOR 0,7:PRINT "Hit any key to continue PRINTING"
3510  LOCATE 23,26:COLOR 10,0:PRINT "Hit KEY F2 - Return to Menu.":COLOR 3,0:GOSUB 35010
3520  Y$=INKEY$: IF Y$="" THEN 3520
3530  RETURN
4000  REM
4010  OPEN FILN$ FOR INPUT AS #2
4030  FOR I= 1 TO 20:INPUT #2, NKEY$(I),NOTE$(I):IF NKEY$(I)=CHR$(15) THEN 4035 ELSE NEXT
4035  NP=I-1:CLOSE #2
4040  GOSUB 5000
4050  LOCATE 1,1:PRINT "NOTES:  KEYS":LOCATE 1,30:COLOR 14,0:PRINT "KEYS       ";:COLOR 3,0:PRINT " DESCRIPTION":FOR I=1 TO NP:COLOR 14,0:LOCATE 4+I,30:PRINT NKEY$(I);:COLOR 3,0:LOCATE ,40:PRINT " = ";NOTE$(I):NEXT
4060  LOCATE 20,28:COLOR 14,0:PRINT "HIT ANY KEY TO CONTINUE":COLOR 3,0
4065  Y$=INKEY$:IF Y$="" THEN 4065 ELSE 160
5000  CLS:LOCATE 25,1:COLOR 0,7,1:PRINT O1$;:COLOR 3,0:LOCATE 1,1:RETURN
5010  ON KEY(1) GOSUB 130:ON KEY(6) GOSUB 133:KEY(6) ON:KEY(1) ON:ON KEY(8) GOSUB 4000:KEY(8) ON:ON KEY(7) GOSUB 20000:KEY(7) ON:ON KEY(2) GOSUB 210:KEY(2) ON:RETURN
9000  IF ERL = 650 THEN EE=ERL:RESUME 655
9010  IF ERR = 27 THEN CLS:LOCATE 25,10:COLOR 1,7,1:PRINT "FILE = ";FILE$;SPACE$(10);"PRINTER ERROR ";:COLOR 7,1:LOCATE 1,1
9030  IF ERR = 27 THEN PRINT "CHECK THE PRINTER":FOR I= 1 TO 500:NEXT I:RESUME 230
9040  IF ERR = 53 THEN CLS:LOCATE 10,15:PRINT "File containing KEYS used in NOTES does not exist.":LOCATE 12,22:PRINT "Return to EDIT program to create file." :LOCATE 18,25:PRINT "HIT ANY KEY TO CONTINUE":GOSUB 35030:Y$=INPUT$(1):RESUME 160
9050  CLS:LOCATE 12,28:PRINT "ERROR ";ERR;" ENCOUNTERED":LOCATE 18,27:PRINT "HIT ANY KEY TO CONTINUE"
9060  Y$=INKEY$:IF Y$="" THEN 9060 ELSE RESUME 160
20000  N$=STR$(NN):A$="ADMAIL":CHAIN "ADNAME",20000,ALL
20210  Y$=INKEY$:IF Y$="" THEN 20210 ELSE GOSUB 5000:RETURN
30000  CLS:LOCATE 25,25:COLOR 1,7,1:PRINT "INTEGRATED SOFTWARE SYSTEMS";:COLOR 3,0:LOCATE 1,1
30010  OPEN "ADMAIL.HLP" AS #2 LEN=78
30020  FIELD #2, 78 AS A$
30030  I=1:M=1
30040  GET #2,I
30090  IF LEFT$(A$,1) <> CHR$(15) THEN PRINT A$ :I=I+1:GOTO 30040 ELSE 30130
30130  LOCATE 24,27:COLOR 14,0:PRINT "HIT ANY KEY TO CONTINUE";:COLOR 3,0:GOSUB 35030
30140  Y$=INKEY$:IF Y$="" THEN 30140
30150  CLOSE #2:GOTO 200
35000  IF SND$="N" THEN RETURN ELSE FOR SS%=1 TO 4:SOUND 500*SS%,2:NEXT:RETURN
35010  IF SND$="N" THEN RETURN ELSE FOR SS%=1 TO 3:SOUND 1000*SS%,1:NEXT:FOR SS%= 3 TO 1:SOUND 1000*SS%,1:NEXT:RETURN
35020  IF SND$="N" THEN RETURN ELSE BEEP:RETURN
35030  IF SND$="N" THEN RETURN ELSE SOUND 750,2:SOUND 30000,2:SOUND 750,2:RETURN
40000  A$="ADMAIL.BAS":CHAIN "ADREAD.BAS",40000,ALL